open(BUFF,"gunzip -c processed_beagle_input.tped.gz |") or die "no file exists fwdStrandResults_cll2_build37.tped.gz\n";
while(<BUFF>)
{
	chomp($_);
	@a=split(" ",$_);
	$chr=shift(@a);
	$rsid = shift(@a);
	shift(@a);
	shift(@a);
	@u=sort(uniq(@a));
	if($u[0] eq '0')
	{
		shift(@u);
	}
	if(@u == 1)
	{
		print "$chr $rsid @u\n";
	}
}
sub uniq 
{
    return keys %{{ map { $_ => 1 } @_ }};
}
